home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / X11 / XSELECT.ELC < prev   
Text File  |  1993-03-28  |  10KB  |  70 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:27:28 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/x11/xselect.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴!¼ä┬┴!ê└├!¼ä┬├!ê└ç" [find-face primary-selection make-face secondary-selection] 2)
  14. (fset 'x-get-selection #[nil "└┴┬\"ç" [x-get-selection-internal PRIMARY STRING] 3 "\
  15. Return text selected from some X window."])
  16. (fset 'x-get-secondary-selection #[nil "└┴┬\"ç" [x-get-selection-internal SECONDARY STRING] 3 "\
  17. Return text selected from some X window."])
  18. (fset 'x-get-clipboard #[nil "└┴┬\"ç" [x-get-selection-internal CLIPBOARD STRING] 3 "\
  19. Return text pasted to the clipboard."])
  20. (defvar primary-selection-extent nil "\
  21. The extent of the primary selection; don't use this.")
  22. (defvar secondary-selection-extent nil "\
  23. The extent of the secondary selection; don't use this.")
  24. (fset 'x-select-make-extent-for-selection #[(selection previous-extent face) "└┴\n!¡è├\n!¡à─├\n!!└ë    ;¼╙    :½⌐    @    A^    @    A]¡ë╩    @!├\n!=╩    @!¬Ñ┴    !½ƒ╦    !╠    !¡ê├    !├\n!=├    !¼ò┴\n!½É├\n!½ï─├\n!!½ä═\n!ê??¡ƒ½ê╬\n#¬ô╧#╨\n\"ê╥\n\",ç" [nil extentp previous-extent extent-buffer buffer-name end start valid buffer selection marker-buffer extent-start-position extent-end-position delete-extent set-extent-endpoints make-extent set-extent-priority mouse-highlight-priority set-extent-face face] 4])
  25. (fset 'x-own-selection #[(selection &optional type) ";¼├┴!¼╛:½│┬@!½¡┬A!½º├@!½í├A!½¢├@!├A!=½É─├@!!½ê─├A!!¼ç┼╞╟D\"ê¼â╔╩\"ê╔=½è╦ ═# ¬Ä╬=½ê╦╨#ç" [selection extentp markerp marker-buffer buffer-name signal error "invalid selection" type PRIMARY x-own-selection-internal x-select-make-extent-for-selection primary-selection-extent primary-selection SECONDARY secondary-selection-extent secondary-selection] 4 "\
  26. Make a primary X Selection of the given argument.  
  27. The argument may be a string, a cons of two markers or an extent.  In the 
  28. latter cases the selection is considered to be the text between 
  29. the markers or the between extents endpoints" (byte-code "¼à┴┬!Cç├─ !├┼ !BCç" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)])
  30. (fset 'x-own-secondary-selection #[(selection &optional type) "└    ┬\"ç" [x-own-selection selection SECONDARY] 3 "\
  31. Make a secondary X Selection of the given argument.  The argument may be a 
  32. string or a cons of two markers (in which case the selection is considered to
  33. be the text between those markers.)" (byte-code "¼à┴┬!Cç├─ !├┼ !BCç" [current-prefix-arg read-string "Store text for pasting: " copy-marker point-marker mark-marker] 3)])
  34. (fset 'x-own-clipboard #[(string) "└    ┬\"ç" [x-own-selection string CLIPBOARD] 3 "\
  35. Paste the given string to the X Clipboard."])
  36. (fset 'x-disown-selection #[(&optional secondary-p) "└    ½â┬¬ü├!ç" [x-disown-selection-internal secondary-p SECONDARY PRIMARY] 2 "\
  37. Assuming we own the selection, disown it.  With an argument, discard the
  38. secondary selection instead of the primary selection."])
  39. (fset 'x-dehilight-selection #[(selection) "┴=½ò\n½ë├┼\n!ê╞)½Ö╚ ê¬ö╔=½Å\n½ï├┼\n!ê╞\n)╞ç" [selection PRIMARY primary-selection-extent t inhibit-quit delete-extent nil zmacs-regions zmacs-deactivate-region SECONDARY secondary-selection-extent] 2 "\
  40. for use as a value of x-lost-selection-hooks."])
  41. (byte-code "└└ç" [x-dehilight-selection x-lost-selection-hooks] 1)
  42. (fset 'x-notice-selection-requests #[(selection type successful) "¼å┴┬ #ç┴┼ #ç" [successful message "Selection request failed to convert %s to %s" selection type "Sent selection %s as %s"] 4 "\
  43. for possible use as the value of x-sent-selection-hooks."])
  44. (fset 'x-notice-selection-failures #[(selection type successful) "«à┴┬ #ç" [successful message "Selection request failed to convert %s to %s" selection type] 4 "\
  45. for possible use as the value of x-sent-selection-hooks."])
  46. (byte-code "└┴Mê┬├Mç" [xselect-kill-buffer-hook #[nil "└┴!ê└┬!ê└├!ç" [xselect-kill-buffer-hook-1 PRIMARY SECONDARY CLIPBOARD] 2] xselect-kill-buffer-hook-1 #[(selection) "└┬ !¡⌐─ ┼\"ë¡í    :½Ä╞    @!½êp╟    @!=¼î╚    !¡èp╔    !=¡â╩ !)ç" [nil value x-selection-owner-p selection x-get-selection-internal _EMACS_INTERNAL markerp marker-buffer extentp extent-buffer x-disown-selection-internal] 3]] 2)
  47. (fset 'x-get-cutbuffer #[(&optional which-one) "└    ½à┬    H¬ü├!ç" [x-get-cutbuffer-internal which-one [CUT_BUFFER0 CUT_BUFFER1 CUT_BUFFER2 CUT_BUFFER3 CUT_BUFFER4 CUT_BUFFER5 CUT_BUFFER6 CUT_BUFFER7] CUT_BUFFER0] 3 "\
  48. Returns the value of one of the 8 X server cut-buffers.  Optional arg
  49. WHICH-ONE should be a number from 0 to 7, defaulting to 0.
  50. Cut buffers are considered obsolete; you should use selections instead."])
  51. (fset 'x-store-cutbuffer #[(string) ";¼ä┴┬!ê├─!ê┼╞\"ç" [string error "must be a string" x-rotate-cutbuffers-internal 1 x-store-cutbuffer-internal CUT_BUFFER0] 3 "\
  52. Store the given string into the X server's primary cut buffer.
  53. The previous value of the primary cut buffer is rotated to the secondary
  54. cut buffer, and the second to the third, and so on (there are 8 buffers.)
  55. Cut buffers are considered obsolete; you should use selections instead."])
  56. (fset 'x-kill-primary-selection #[nil "└ ¼ä┴┬!ê├¼ä┴╞!êè╟!qê╚╔!╩!\"ê)╦├!ç" [x-selection-owner-p error "emacs does not own the primary selection" nil last-command primary-selection-extent "the primary selection is not an extent?" extent-buffer kill-region extent-start-position extent-end-position x-disown-selection] 4 "\
  57. If there is a selection, delete the text it covers, and copy it to 
  58. both the kill ring and the Clipboard." nil])
  59. (fset 'x-delete-primary-selection #[nil "└ ¼ä┴┬!ê├¼ä┴╞!êè╟!qê╚!╔!|ê)╩├!ç" [x-selection-owner-p error "emacs does not own the primary selection" nil last-command primary-selection-extent "the primary selection is not an extent?" extent-buffer extent-start-position extent-end-position x-disown-selection] 3 "\
  60. If there is a selection, delete the text it covers *without* copying it to
  61. the kill ring or the Clipboard." nil])
  62. (fset 'x-copy-primary-selection #[nil "└┬ ¼ä├─!ê¼ä├╞!êè╟!qê╚╔!╩!\")ç" [nil last-command x-selection-owner-p error "emacs does not own the primary selection" primary-selection-extent "the primary selection is not an extent?" extent-buffer copy-region-as-kill extent-start-position extent-end-position] 4 "\
  63. If there is a selection, copy it to both the kill ring and the Clipboard." nil])
  64. (fset 'x-yank-clipboard-selection #[nil "└┬ ë¼ä─┼!ê╞ ê c)ç" [nil last-command x-get-clipboard clip error "there is no clipboard selection" push-mark] 3 "\
  65. If someone owns a Clipboard selection, insert it at point." nil])
  66. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mê╬╧Mê╨╤Mê╥╙Mê╘╒Mç" [xselect-convert-to-string #[(selection type value) ";½éç┴!½Åè┬!qê├!─!{)ç:½┤┼@!½«┼A!½¿╞@!╞A!=¼è╟╚╔@AE\"êè╞@!«â╚╩!qê@A{)ç╦ç" [value extentp extent-buffer extent-start-position extent-end-position markerp marker-buffer signal error "markers must be in the same buffer" "selection is in a killed buffer" nil] 5] xselect-convert-to-length #[(selection type value) ";½äG¬╢┴!½à┬!¬¼:¡¿├@!¡ó├A!¡£─@!─A!=¼è┼╞╟@AE\"ê╚@AZ!ë¡ë╔╩\"╦╠\"B)ç" [value extentp extent-length markerp marker-buffer signal error "markers must be in the same buffer" abs ash -16 logand 65535] 6] xselect-convert-to-targets #[(selection type value) "└┴┬ \"B뽺@A>½ï╞@A\"íê¬kA@╟=½êëAAíê¬\\Aë¼Y╚╔ \"*ç" [TIMESTAMP mapcar car selection-converter-alist all rest delq _EMACS_INTERNAL apply vector] 5] xselect-convert-to-delete #[(selection type value) "└    !ê┬ç" [x-disown-selection-internal selection NULL] 2] xselect-convert-to-filename #[(selection type value) "└    !½ï┬├    !«â─┼!!ç    :½ÿ╞    @!½Æ╞    A!½î┬╟    @!«â─┼!!ç╚ç" [extentp value buffer-file-name extent-buffer error "selection is in a killed buffer" markerp marker-buffer nil] 3] xselect-convert-to-charpos #[(selection type value) "└ëë─!½ï╞!╟!ë¬ù:¡╝╚@!¡╢╚A!¡░@A롺 S\nSë W½å \n    ╔╩╦ ╠\"═ ╬\"B╦\n╠\"═\n╬\"B\"B+ç" [nil tmp b a extentp value extent-start-position extent-end-position markerp SPAN vector ash -16 logand 65535] 8] xselect-convert-to-lineno #[(selection type value) "└ëëë┼!½Æ╟!╚!╔!ë¬ñ:¡╤╩@!¡╩╩A!¡├╦@!╦A!╠ !ë¡░è\nqê═╬ \"═╬ \") W½å      ╧╨╤ ╥\"╙ ╘\"B╤ ╥\"╙ ╘\"B\"B,ç" [nil tmp buf b a extentp value extent-buffer extent-start-position extent-end-position markerp marker-position marker-buffer count-lines 1 SPAN vector ash -16 logand 65535] 7] xselect-convert-to-colno #[(selection type value) "└ëëë┼!½Æ╟!╚!╔!ë¬á:¡═╩@!¡╞╩A!¡┐@A╦ !ë¡░è\nqê bêi bêi) W½å      ╠═╬ ╧\"╨ ╤\"B╬ ╧\"╨ ╤\"B\"B,ç" [nil tmp buf b a extentp value extent-buffer extent-start-position extent-end-position markerp marker-buffer SPAN vector ash -16 logand 65535] 7] xselect-convert-to-os #[(type size) "└    !ç" [symbol-name system-type] 2] xselect-convert-to-host #[(type size) "└ ç" [system-name] 1] xselect-convert-to-user #[(type size) "└ ç" [user-full-name] 1]] 2)
  67. (defun xselect-convert-to-class (type size) "\
  68. XEmacs")
  69. (byte-code "└┴Mê┬├Mê─┼Mê╞╟Mê╚    ╩╦!ç" [xselect-convert-to-name (lambda (type size) invocation-name) xselect-convert-to-integer #[(selection type value) "¿¡ë┴┬\"├─\"Bç" [value ash -16 logand 65535] 4] xselect-convert-to-atom #[(selection type value) "9¡üç" [value] 1] xselect-convert-to-identity #[(selection type value) "└    !ç" [vector value] 2] ((TEXT . xselect-convert-to-string) (STRING . xselect-convert-to-string) (TARGETS . xselect-convert-to-targets) (LENGTH . xselect-convert-to-length) (DELETE . xselect-convert-to-delete) (FILE_NAME . xselect-convert-to-filename) (CHARACTER_POSITION . xselect-convert-to-charpos) (LINE_NUMBER . xselect-convert-to-lineno) (COLUMN_NUMBER . xselect-convert-to-colno) (OWNER_OS . xselect-convert-to-os) (HOST_NAME . xselect-convert-to-host) (USER . xselect-convert-to-user) (CLASS . xselect-convert-to-class) (NAME . xselect-convert-to-name) (ATOM . xselect-convert-to-atom) (INTEGER . xselect-convert-to-integer) (_EMACS_INTERNAL . xselect-convert-to-identity)) selection-converter-alist provide xselect] 2)
  70.